home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 06 - 1990 / 06.02 Feb 90 / HyperBASIC / Accuracy Benchmark.bas next >
Encoding:
BASIC Source File  |  1989-12-18  |  348 b   |  22 lines  |  [TEXT/HBAS]
  1. xCMD accuracy
  2. ' Accuracy Benchmark
  3. ' developed by R. Broucke
  4. ' at University of Texas, Austin
  5. DEFDBL a-z
  6. time1=_TickCount
  7. s=0
  8. x=0
  9. FOR n=1 TO 1000
  10.     s=s+x*x
  11.     x=x+.00123
  12. NEXT n
  13. time2=_Tickcount
  14. Totaltime=(time2-time1)/60
  15. s$=str$(s)
  16. x$=str$(x)
  17. Totaltime$=str$(Totaltime)
  18. SETFIELDBYNUM 1,1,s$
  19. SETFIELDBYNUM 1,2,x$
  20. SETFIELDBYNUM 1,3,Totaltime$
  21. end
  22.